*Figure 1 / Appendix Table S2*
reg meritocracy_01 ineq ineqWP if surveyid==2016
reg meritocracy_01 ineq ineqWP if surveyid==2017
reg meritocracy_01 ineq ineqWP


*Figure 2 / Appendix Table S7*
reg meritocracy_01 ineq##c.income5 ineqWP##c.income5
margins, dydx(ineq) at(income5=(1(1)5)) atmeans level(95)
marginsplot, yline(0) recast(connected) recastci(rcap) graphregion(color(white)) ciop(bcolor(gs12)) plotop(lcolor(black)) ytitle("Effect of Treatment") xtitle("Respondent Income") title("Unedited Figure")
margins, dydx(ineqWP) at(income5=(1(1)5)) atmeans level(95)
marginsplot, yline(0) recast(connected) recastci(rcap) graphregion(color(white)) ciop(bcolor(gs12)) plotop(lcolor(black)) ytitle("Effect of Treatment") xtitle("Respondent Income") title("Unedited Figure")

*Figure 3 / Appendix Table S12*
medeff (regress meritocracy_01 ineqWP ineq) (regress govreduce ineqWP meritocracy_01 ineq) , treat(ineqWP) mediate(meritocracy_01) sims(1000)

**ADDITIONAL ANALYSES IN THE APPENDIX**

*Table S3
ologit meritocracy_01 ineq ineqWP if surveyid==2016
ologit meritocracy_01 ineq ineqWP if surveyid==2017
ologit meritocracy_01 ineq ineqWP

*Table S4	
reg meritocracy_01 ineq##c.fire_01 ineqWP##c.fire_01

*Table S5
reg fire_01 ineq ineqWP

*Table S6
reg meritocracy_01 ineq ineqWP if white==1
reg meritocracy_01 ineq ineqWP if white==0

*Table S8
reg meritocracy_01 control ineqWP if income5==1

*Table S9
reg meritocracy_01 ineq##c.partyid3_01 ineqWP##c.partyid3_01

*Table S10
reg meritocracy_01 ineq##c.income5 ineqWP##c.income5 education age male black latino asian partyid3

*Table S11
reg meritocracy_01 ineq##hasjob ineqWP##hasjob if income5==1


